home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 41 / Amiga Format CD41 (1999-06)(Future Publishing)(GB)[!][issue 1999-07].iso / -screenplay- / otherstuff / f1gp-ed / extras / install_f1gp next >
Text File  |  1999-04-24  |  6KB  |  224 lines
  1. ; Formula One Grand Prix / World Circuit replacement installer
  2. ; $VER: Install_F1GP 2.0 (22.5.97)
  3. ;
  4. ; Copyright © 1995-1997 Oliver Roberts
  5. ;
  6. ; French translation by Daniel Grenson
  7.  
  8. (if (= (exists "Env:Language") 1)
  9.     (set @language (getenv "Language"))
  10. )
  11.  
  12. ;*****************
  13. ; English strings
  14. ;
  15. (set #str-info (cat
  16.     "This Installer script will attempt to install MicroProse's "
  17.     "Formula One Grand Prix (or World Circuit) game to your hard "
  18.     "drive in a friendly manner (unlike the official installer "
  19.     "supplied with the game itself!).  If you already have the "
  20.     "game installed on your hard drive you shouldn't need to use "
  21.     "this script!\n\n"
  22.     "Make sure you have booted from your hard drive, before "
  23.     "continuing with this installation!\n\nDo you want to continue?"
  24. ))
  25. (set #str-askver "Which version of the game you have?")
  26. (set #str-numdisks "%ld disk version")
  27. (set #str-clickicon "What would you you like to happen when you click on the game icon?")
  28. (set #str-runintro "Run the intro (as if booting from disk 1)")
  29. (set #str-skipintro "Skip the intro (as if booting from disk 2)")
  30. (set #str-selectdrawer "Select a drawer in which to install the game (no separate drawer will be created)")
  31. (set #str-addassigns "Adding F1GP disk assigns to user-startup")
  32. (set #str-reboot "You must now reboot your Amiga before attempting to load the game.")
  33. (set #str-diskinsert "\n\nPlease insert\n\n%s disk %ld")
  34.  
  35. ;****************
  36. ; French strings
  37. ;
  38. (if (= @language "français") (
  39.  (set #str-info (cat
  40.     "Ce script d'installation essayera d'installer le jeu MicroProse's "
  41.     "Formula One Grand Prix (ou World Circuit) sur votre disque dur "
  42.     "d'une manière conviviale (à la différence de l'installeur officiel "
  43.     "fourni avec le jeu lui-même!).  Si vous avez déja installé le jeu "
  44.     "sur votre disque dur, vous ne devriez pas avoir besoin d'utilisergame "
  45.     "ce script!\n\n"
  46.     "Assurez-vous d'avoir lancé votre machine au départ de votre disque "
  47.     "dur avant de continuer installation!\n\nVoulez-vous continuer?"
  48.  ))
  49.  (set #str-askver "Quelle version du jeu possédez-vous?")
  50.  (set #str-numdisks "version %ld disquettes")
  51.  (set #str-clickicon "Que souhaitez-vous qu'il se passe lorsque vous cliquez sur l'icone de jeu?")
  52.  (set #str-runintro "Voir l'intro du jeu (comme si vous le lanciez de la disquette 1)")
  53.  (set #str-skipintro "Faire l'impasse sur l'intro (comme si vous le lanciez de la disquette 2)")
  54.  (set #str-selectdrawer "Sélectionnez le tiroir dans lequel vous voulez installer le jeu (aucun tiroir séparé ne sera créé)")
  55.  (set #str-addassigns "Ajout des assigns de disquette F1GP sur votre user-startup")
  56.  (set #str-reboot "Vous devez relancer votre Amiga avant d'essayer de charger le jeu.")
  57. ))
  58.  
  59. ;*************
  60. ; Here we go!
  61. ;
  62. (if (NOT (askbool
  63.         (prompt    #str-info)
  64.         (default 0)
  65.         (help "")
  66.     ))
  67.     (exit (quiet))
  68. )
  69.       
  70. (welcome "")
  71.  
  72. (set #f1gpver
  73.     (askchoice
  74.         (prompt #str-askver)
  75.         (help @askchoice-help)
  76.         (choices ("(A) Formula One Grand Prix (%s)" (#str-numdisks 4))
  77.             "(B) World Circuit"
  78.             ("(C) Formula One Grand Prix (%s)" (#str-numdisks 3))
  79.         )
  80.     )
  81. )
  82.  
  83. (set #disk1pat "~(system#?|.info|Disk#?)")
  84. (set #disk2pat "~(system#?|.info|remove#?|Disk#?)")
  85. (set #disk2patintroA "~(system#?|.info|remove#?|Disk#?|formula#?)")
  86. (set #disk2patintroB "~(system#?|.info|remove#?|Disk#?|world#?)")
  87. (set #disk3pat "#?")
  88. (set #disk4pat "~(read#?|install#?|Disk#?|more)")
  89. (set #gamename "Formula One Grand Prix")
  90.  
  91. (if (= #f1gpver 0)
  92.     (set #disk2patintro #disk2patintroA)
  93. )
  94.  
  95. (if (= #f1gpver 1)
  96.     (
  97.         (set #gamename "World Circuit")
  98.         (set #disk2patintro #disk2patintroB)
  99.     )
  100. )
  101.  
  102. (if (= #f1gpver 2)
  103.     (
  104.         (set #numdisks 3)
  105.         (set #disk1pat #disk2pat)
  106.         (set #disk2pat #disk3pat)
  107.         (set #disk3pat #disk4pat)
  108.     )
  109.     (
  110.         (set #numdisks 4)
  111.         (if (= 0 (askchoice
  112.             (prompt #str-clickicon)
  113.             (help @askchoice-help)
  114.             (default 1)
  115.             (choices #str-runintro #str-skipintro)))
  116.             (set #disk2pat #disk2patintro)
  117.         )
  118.     )
  119. )
  120.  
  121. (set #destdir
  122.     (askdir
  123.         (prompt #str-selectdrawer)
  124.         (help @askdir-help)
  125.         (default @default-dest)
  126.     )
  127. )
  128.  
  129. (set @default-dest #destdir)
  130.  
  131. (complete 0)
  132.  
  133. (askdisk
  134.     (prompt (#str-diskinsert #gamename 1))
  135.     (dest "f1gp_disk_#1")
  136.     (help @askdisk-help)
  137. )
  138.  
  139. (copyfiles
  140.     (source "f1gp_disk_#1:")
  141.     (dest @default-dest)
  142.     (pattern #disk1pat)
  143.     (files)
  144.     (infos)
  145.     (optional "oknodelete" "force")
  146.     (help @copyfiles-help)
  147. )
  148.  
  149. (complete 20)
  150.  
  151. (askdisk
  152.     (prompt (#str-diskinsert #gamename 2))
  153.     (dest "f1gp_disk_#2")
  154.     (help @askdisk-help)
  155. )
  156.  
  157. (copyfiles
  158.     (source "f1gp_disk_#2:")
  159.     (dest @default-dest)
  160.     (pattern #disk2pat)
  161.     (files)
  162.     (infos)
  163.     (optional "oknodelete" "force")
  164.     (help @copyfiles-help)
  165. )
  166.  
  167. (complete 60)
  168.  
  169. (askdisk
  170.     (prompt (#str-diskinsert #gamename 3))
  171.     (dest "f1gp_disk_#3")
  172.     (help @askdisk-help)
  173. )
  174.  
  175. (copyfiles
  176.     (source "f1gp_disk_#3:")
  177.     (dest @default-dest)
  178.     (pattern #disk3pat)
  179.     (files)
  180.     (infos)
  181.     (optional "oknodelete" "force")
  182.     (help @copyfiles-help)
  183. )
  184.  
  185. (complete 80)
  186.  
  187. (if (= #numdisks 4)
  188.     (
  189.         (askdisk
  190.             (prompt (#str-diskinsert #gamename 4))
  191.             (dest "f1gp_disk_#4")
  192.             (help @askdisk-help)
  193.         )
  194.         (copyfiles
  195.             (source "f1gp_disk_#4:")
  196.             (dest @default-dest)
  197.             (pattern #disk4pat)
  198.             (files)
  199.             (infos)
  200.             (optional "oknodelete" "force")
  201.             (help @copyfiles-help)
  202.         )
  203.     )
  204. )
  205.  
  206. (complete 95)
  207.  
  208. (startup "Formula One Grand Prix"
  209.     (prompt #str-addassigns)
  210.     (command 
  211.         ("Assign f1gp_disk_#1: %s\n" @default-dest)
  212.         ("Assign f1gp_disk_#2: %s\n" @default-dest)
  213.         ("Assign f1gp_disk_#3: %s\n" @default-dest)
  214.         (if (= #numdisks 4) ("Assign f1gp_disk_#4: %s\n" @default-dest))
  215.     )
  216.     (help @startup-help)
  217. )
  218.  
  219. (complete 100)
  220.  
  221. (exit
  222.     (cat #str-reboot "\n\nOliver Roberts (oliver.roberts@iname.com)\nhttp://www.nanunanu.org/~oliver/")
  223. )
  224.